home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / cutvar.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-05-14  |  2.4 KB  |  91 lines
  1. G4C
  2.  
  3.  
  4. WINBIG -1 -1 498 189  "CutVar.gc"
  5. WinType 11110001
  6. usetopaz
  7.  
  8. ; ---- Decorations
  9. BOX 0 0 498 87  OUT RIDGE
  10. BOX 0 87 498 102  OUT RIDGE
  11.  
  12. ; ---- Embossed Headings using the user's screen font
  13. CTEXT 12 7  " Using CutVar on a word " #screen 8 2 0 0001
  14. CTEXT 10 93  " Using CutVar on a line "  #screen 8 2 0 0001
  15.  
  16. xonLoad 
  17.     GuiOpen CutVar.gc
  18.  
  19. xonClose
  20.     GuiQuit CutVar.gc
  21.  
  22. ; ---------------------------------- Upper half : cutting a word
  23.  
  24. TEXT 32 21 108 10  "Enter a word to be cut (and press <Return>) :" 48 NOBOX
  25.  
  26. XTEXTIN 32 32 216 13  '' word '' 100
  27.  
  28. TEXT 32 48 108 10  "Cut it after which letter?" 27 NOBOX
  29.  
  30.  
  31. ;  The number entered is used to mark the position to cut the word
  32.  
  33. XTEXTIN 378 46 54 13  'Enter a number' cutpos '' 100
  34.     ;     Cut the first (or last) 'cutpos' letters from 'word'
  35.     ;     and put them into 'dest'.
  36.     ;     A negative value counts from the end of the word.
  37.     ;     The CHAR argument determines that letters are counted.
  38.     CutVar word CUT CHAR $cutpos dest
  39.     ;     Show the two parts
  40.     update CutVar.gc 1 $dest
  41.     update CutVar.gc 2 $word
  42.  
  43. XBUTTON 383 60 43 10  'Tip'
  44.     setvar a 'Enter SENSIBLE values for the cutting position.\n'
  45.     appvar a 'Remember GIGO : Garbage in, garbage out.\n\n'
  46.     appvar a 'Try entering a negative value for the cutting position.'
  47.     ezreq $a 'Okay' v
  48.  
  49. ;     Gadgets to display the results
  50.  
  51. TEXT 32 58 108 10  "Your word has been cut into " 45 NOBOX
  52.  
  53. TEXT 32 69 162 13  " " 40 BOX
  54.     gadid 1
  55.  
  56. TEXT 205 69 162 13  " " 40 BOX
  57.     gadid 2
  58.  
  59. ;----------------------------------------- Lower half
  60. ;     Line cutting, more or less the same as word cutting above
  61.  
  62. TEXT 32 109 108 10  "Enter a line to be cut (and press <Return>) : " 48 NOBOX
  63.  
  64. XTEXTIN 32 120 400 13  '' line "" 200
  65.  
  66. TEXT 32 135 108 10  "Cut it after which word?" 27 NOBOX
  67.  
  68. XTEXTIN 378 133 54 13  'Enter a number' wcutpos '' 100
  69.     ;     The WORD argument determines that words are counted.
  70.     ;     Otherwise, as above.
  71.     CutVar line CUT WORD $wcutpos dest2
  72.     ;     The initial space needs to be cut from the second part of
  73.     ;     the line.
  74.     if $wcutpos > 0                ; Counting forwards
  75.       CutVar line CUT CHAR 1 trim
  76.     else                           ; Counting from the end
  77.       CutVar dest2 CUT CHAR 1 trim
  78.     endif
  79.     update CutVar.gc 3 $dest2
  80.     update CutVar.gc 4 $line
  81.  
  82.  
  83. TEXT 32 146 108 10  "Your line has been cut into " 45 NOBOX
  84.  
  85. TEXT 32 157 378 13  " " 100 BOX
  86.     gadid 3
  87.  
  88. TEXT 32 171 378 13  " " 100 BOX
  89.     gadid 4
  90.  
  91.